home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - DOS Part 2 / DOS047.dsk / MEMAP EXEC CREATE.bas < prev    next >
BASIC Source File  |  2012-02-16  |  2KB  |  31 lines
  1. 1  REM  ************************
  2. 2  REM  *                      *
  3. 3  REM  * APPLESOFT MEMORY MAP *
  4. 4  REM  * --------- ------ --- *
  5. 5  REM  *  MEMAP: EXEC CREATE  *
  6. 6  REM  *    BY N.D. GREENE    *
  7. 7  REM  * MICRO: DECEMBER 1981 *
  8. 8  REM  *                      *
  9. 9  REM  ************************
  10. 10  TEXT : HOME : LIST 1 -9: POKE 33,8: HOME : POKE 33,40
  11. 20 A$ = "MEMAP":D$ =  CHR$(4):Q$ =  CHR$(34)
  12. 30  PRINT D$;"OPEN";A$: PRINT D$;"WRITE";A$
  13. 40  PRINT "HOME:VTAB 1:HTAB 10:?"Q$"APPLESOFT MEMORY MAP"Q$
  14. 50  PRINT "VTAB 3:?"Q$"MAX MEMORY:"Q$",49152"
  15. 60  PRINT "VTAB 5:?"Q$"          HIMEM:"Q$";PEEK(115)+PEEK(116)*256"
  16. 70  PRINT "VTAB 6:?"Q$"STRINGS---------------------->"Q$";PEEK(115)+PEEK(116)*256-(PEEK(111)+PEEK(112)*256)"
  17. 80  PRINT "VTAB 7:?"Q$" "Q$",PEEK(111)+PEEK(112)*256"
  18. 90  PRINT "VTAB 8:?"Q$"FREE MEMORY------------------>"Q$";PEEK(111)+PEEK(112)*256-(PEEK(109)+PEEK(110)*256)"
  19. 100  PRINT "VTAB 9:?"Q$" "Q$",PEEK(109)+PEEK(110)*256"
  20. 110  PRINT "VTAB 10:?"Q$"ARRAYS----------------------->"Q$";PEEK(109)+PEEK(110)*256-(PEEK(107)+PEEK(108)*256)"
  21. 120  PRINT "VTAB 11:?"Q$" "Q$",PEEK(107)+PEEK(108)*256"
  22. 130  PRINT "VTAB 12:?"Q$"VARIABLES-------------------->"Q$";PEEK(107)+PEEK(108)*256-(PEEK(105)+PEEK(106)*256)"
  23. 140  PRINT "VTAB 13:?"Q$"          LOMEM:"Q$";PEEK(105)+PEEK(106)*256"
  24. 150  PRINT "VTAB 14:?"Q$" "Q$",PEEK(175)+PEEK(176)*256"
  25. 160  PRINT "VTAB 15:?"Q$"PROGRAM---------------------->"Q$";PEEK(175)+PEEK(176)*256-(PEEK(103)+PEEK(104)*256)"
  26. 170  PRINT "VTAB 16:?"Q$" "Q$",PEEK(103)+PEEK(104)*256:VTAB 16"
  27. 180  PRINT D$;"CLOSE";A$
  28. 190  VTAB 12
  29. 200  PRINT "THIS PROGRAM WILL CREATE A TEXT FILE    NAMED 'MEMAP' WHICH WILL GIVE THE VALUESOF LOMEM, HIMEM, THE LENGTH OF THE      STRING AND ARRAY VARIABLES, AND THE     AMOUNT OF FREE MEMORY REMAINING."
  30. 210  PRINT : PRINT "AT ANY TIME, YOU MAY USE THIS PROGRAM BYENTERING 'EXEC MEMAP' FROM KEYBOARD.    'MEMAP' WILL NOT DISTURB THE PROGRAM IN MEMORY, BUT WILL DEMONSTRATE THE AMOUNT OF USED AND AVAILABLE SPACE."
  31. 220  PRINT : END